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HK ££ 3 



1 . 14B B41 641 641000000 

2 . H00H0HH00N0LL0HH000 

3 G05UB 4 ; GOSUB G; GOSUB 5;G0SUB 8; GOSUB 7; GOSUB 5;G0SUB 8; GOTO 50 

4 BC-RND (32)b8-l;FC=RND ( 32 )b8 ; RETURN 

5 NT =T ; F OR Z=NTO N+M; MU=%( 2 ) ; NEXT Z; NT=1 ; RETURN 

6 T=5;N— 24573 ;M=21; RETURN 

7 T=20 ; N=-24549 ; M= 1 9 ; RETURN 

8 FOR Z=0TO 939; NEXT Z; RETURN 

3 PRINT “ RETURN 

10 CX=-30; PRINT "FANTASTIC !"; GOSUB 14;GQSUB 22;G0SUB 6;G0SUB 1B;G0SUB 30; RETURN 

12 PRINT " NO! BUT KEEP TRYING !"; GOSUB 14;G0SUB 28;G0SUB 7;G0SUB 1B;G0SUB 32;RE 
TURN 

14 GOSUB 20; GOSUB 24; RETURN 

IB GOSUB 5; GOSUB 8; GOSUB 8; GOSUB 4; RETURN 

20 E=0; FOR H--68T0 B8STEP 5 ; E=E+Hc 20 ; BOX H, E, 20, 2, 1 ; BOX -H, -E, 20, 2, 1 ; NEXT H; RETU 
RN 

22 FOR Z-ITO 5; LINE -47 , -3 , A ; LINE -3, -15+Z, 1 ; LINE 47,-3,l;NEXT 2; RETURN 

24 FOR X—20TO 20STEP 40; BOX X , 7, 1 , 7, 1 ; BOX X, 7, 7, 1 , 1 ; NEXT X;BOX -2, 1 , 1 , 1 , 1 ; BOX 2 

,1,1,1,1s RETURN 

28 FOR Z-ITO 5; LINE -31 ,- 13, 4; LINE 0, -2-Z, 1;LXNE 31 , -15, 1 ; NEXT Z; RETURN 

30 FOR Z--20TQ 20;BOX 0, Z, 160, 1 , 2; NEXT Z; RETURN 

32 FOR Z—0TO 80;BOX Z, 0, 1 , 40, 2; BOX -Z, 0, 1 , 40, 2; NEXT Z; RETURN 

“§4 IF S=1A=RND (21 )-ll;B=RND <21 )-ll 

3B IF S=2A=RND C 139) -100; B=RND (193) -100 

38 IF S=3A=RND ( 1393 )- 1000 ; B=RND (1993 >-1000 

40 RETURN 

41 U=l; RETURN 

42 U=2; RETURN 

43 U=3; RETURN 

44 U=4; RETURN 

43 CX=- 35; RETURN 

50 CLEAR ; GOSUB 43; PRINT ’ 1=RDD” ; PRINT ; GOSUB 43; PRINT "2=SUBTRACT” ; PRINT ; GOSUB 
43; PRINT "3=MULTIPLY" ; PRINT 

52 GOSUB 49; PRINT " 4-DIUIDE" ; PRINT ; GOSUB 49; PRINT "5-RANDGM" ; CY=-40; INPUT " Y 
OUR CHOICE"R; IF ( R< 1 )+( R>5 )GOTO 50 

54 CLEAR ; PRINT ; GOSUB 49; PRINT "BIFICULITY" ; PRINT ; GOSUB 43; PRINT ”l=ONE DIGIT" 
; PRINT ; GOSUB 43; PRINT ”2=TW0 DIGIT 

56 PRINT ; GOSUB 43;PRINT "3-THREE DIGIT" ; CY— 40; INPUT * YOUR CHOICE"S;IF ( S< 1 ) 
+( S>3 )GOTO 54 

58 CLEAR ; FOR P=1T0 20; GOSUB 34; IF R—5G0SUB 40+RND (4) 

B2 IF R=4U=4 

G4 IF R=3U=3 

6G IF R=2U=2 

G8 IF R=1U=1 

70 IF U=1CY=35 ; PRINT #10, A, “ + " , #0,B, ' = “ ;C=A+B 

72 IF U=2CY=35; PRINT #10, A," - " , #0, B, ”=” ; C=A-B 

73 IF U=3CY=35 ; PRINT #10, A," b * , #0 ,B, " = " ; C=AbB 

74 IF U=4CY=35; GOSUB 73; PRINT #10, A," c *,#0,B,*=’ 

7G CY=-40; INPUT " YOUR ANSWER— ” Z ; GOSUB 3; IF Z-CGOSUB 10; CY=35; GOSUB 9; NEXT P;GO 
TO 50 

78 CY— 40; GOSUB 12; PRINT " THE ANSWER WAS ”, #0, C; CY=35; GOSUB 9;CY=-40;GOSUB 8;G 
OSUB 9; NEXT P;GOTO 50 

79 C=RND ( 193)-100;B=RND ( 40 )-20; A-CbB; IF B-0GOTO 79 

80 RETURN . I ’ I I 1 



N9f 50003135600031357b 17b 17b lb2b 150000 

2 GOSUB 38; CLEAR ; GOTO 70 

3 BOX X,Y,11,11,1; BOX X , Y , 9 , 9 , 2 ; RETURN 

4 BOX X , Y , 1 , 1 , 1 ; RETURN 

5 BOX X+2 , Y+2 ,1,1,1; BOX X~2, Y-2, 1,1,1; RETURN 
G GOSUB 4; GOSUB 5; RETURN 

7 GOSUB 5; BOX X-2 , Y+2 , 1 , 1 , 1 ; BOX X+2, Y-2, 1,1,1; RETURN 

8 GOSUB 7; GOSUB 4; RETURN 

9 GOSUB 7 ; BOX X, Y+2 , 1 , 1 , 1 ; BOX X, Y-2 , 1 , 1 , 1 ; RETURN 

10 x=-43; Y=3S; FOR N= 1 T 0 B ; R=RNB C B )+3; @( N )=A; IF @C N+B )X=X+17; NEXT N; RETURN 

11 GOSUB 3; GOSUB ft; X=X+17 ; NEXT N; RETURN 

12 B=RND C 6 ) ; FOR N=1T0 B; GOSUB 10; NEXT M; RETURN 

13 IF R >-50IF R< -35X=-43; GOSUB 20; GOSUB 1 ); •( 7 ) = i ; U=1 ; GOSUB 21 

14 IF R>-35IF R<-16X=-25; GOSUB 20;GOSUB @( 2 ) ; @( 8 ) = 1 ; U=2 ; GOSUB 21 

15 IF R>~1SIF R<0X~-8; GOSUB 20; GOSUB @C 3 ) ; @t 9 )=1 ; U=3; GOSUB 21 
IB IF R >0IF R<17X=9; GOSUB 20; GOSUB i>( 4 ) ; @( 10 )=1 ; U=4; GOSUB 21 

17 IF R>17IF R<33X=2B; GOSUB 20; GOSUB @( 5 ) ; @( 1 1 ) = 1 ; U=5; GOSUB 21 

18 IF R >33IF R<49X=43; GOSUB 20 ; GOSUB B ); @( 12 )=1 ; U= 6 ; GOSUB 21 

19 RETURN 

20 Y=35; BOX X, Y, 12, 12, 2; Y=15; GOSUB 3; RETURN 

21 IF @( U )~8U=50 

22 IF @(U)=4U=100 

23 GOSUB 24 ;U=0; RETURN 

24 GOSUB 25 ; CX=43 ; S=S+U ; PRINT #0,S; RETURN 

25 CY=-( P-1 )b8-5; CX=-4; RETURN 

2S Z=200; IF P=1FC=137; G=G+S; GOSUB 25;PRINT #4,G,;IF G>BGOTO Z 

27 IF P=2FC=240 ; H=H+S ; GOSUB 25; PRINT #4,H, ; IF H>DGOTO Z 

28 IF P=3FC=89; I=I+S; GOSUB 25; PRINT #4,1,; IF I >DGOTO Z 

29 IF P=4FC=107 ; J=J+S ; GOSUB 25; PRINT #4, J, ; IF J>DGOTO Z 

30 PRINT "_UP* ; RETURN 

31 FOR Z=7T0 12 ; @C Z 1=0 ; NEXT Z; RETURN 



c%&%. ^ 



32 CY= -37; RETURN 

33 GOSUB 32; PRINT " TO ROLL DICE PUSH JY UPt"; RETURN 
n 4 GOSUB 32; PRINT “ USE TRIGGER TO SRUE DICE" ; RETURN 

37 GOSUB 32; PRINT " YOUR OPT, TO ROLL iRGftIN" ; RETURN 

38 NT=13; FOR Z=-24573T0 -24538 ; MU=%( Z ) ; NEXT Z;NT=0; RETURN 

39 BOX R, Q, 20 , 8, 2; BOX R, Q, 1 , 6, 1 ; LINE R-3,Q,4;LINE R,Q+3,1;LINE R+3,Q,1 

40 IF R>49B0X R , Q , 15 , 8 , 2 ; R=-49 

41 RETURN 

44 BOX 0,26, 120, 35, 2; RETURN 

45 GOSUB 32; INPUT "INPUT1-6 TO SCORE 3 DIE’K; IF K.= 10=700 

4S IF K=2O=200 

47 IF K=3U=300 

48 IF K=4U=400 



48 IF K=5U=350 

50 IF K=SO=B00 

51 GOSUB 24; 0=0; GOSUB 32; PRINT " NOW MOUE THE DICE DOWN ” ; RETURN 

52 P=P+l; GOSUB 44; T=0 ; C=0; S=0; BOX 44, - 17, 55, 32, 2; GOSUB 31; GOSUB 33; IF P>L P=1 

53 RETURN 

70 P=i;C=0;G=0;H=0; 1=0; J=0;S=0; GOSUB 31 ; D=4999; T=0; Q=25; BC=5 

80 CY=0; INPUT "*«NUMBER*QF*PLftYERS?"L; IF L>4L=4 

90 CLEAR ; CY=~5; FOR N=1T0 L; PRINT "aPLftYER #“ , #0, N, “ : " ; NEXT N 

100 CY=5;CX=-5; PRINT "TOTAL PRESENT "; GOSUB 26;G0SUB 33 

110 IF JYC P ) = 1B0X 0,31,120, 19,2;G0SUB 12; C=l; GOSUB 34 

120 IF JXCP)=1G0SUB 52; GOSUB 26 

125 IF TR(P)T=T+1; GOSUB 13; IF T=6T=0; GOSUB 44; GOSUB 37; GOSUB 31 ;C=0; GOSUB 38 
130 IF JY ( P ) = - 1B0X R , Q , 9 , 8 , 2 ; GOSUB 45 
148 IF JXC P )=- 1 GOSUB 26; GOSUB 52; GOSUB 26 
150 R=R+4; GOSUB 40; IF CGOSUB 39 



160 GOTO 110 

200 GOSUB 44; CY=35; PRINT “ GAME OUER PLAYER #”,#0,P,” 



WINS"; GOSUB 38 



CRAZIE DICE 



^0313 57*17X17*1* 2*1 
2 CLEAR jGOSUB 33 {GOTO 70 ; 

wx X,Y,lfl,l;RETURN v 

5B0X X+2,Y+2 > l,l f l;BQX X*“2.Y , "2»1«1 1 -rftitrw 
6G0SUB 4jG0SUB 5;RETURN 1 »1>1»RETURN 

7G0SUB 5; BOX X-2,Y+2,1,1,1;BCQC X+2.Y-2 1 1 1 •rf'Pitrn 
oGOSUB 7{G03UB 4 {RETURN * »1#1>I|RBTURN 

9G0SUB 7; BOX X,Y+2,l,l f 1;B0X X.Y-2.1.1 1 •pft'ttbn 

1 ^NECT 3 iIfETURN i N=1 ' r0 (6)+3ioW«A;IF 9(N+6)X-Z + 17; 

11G0SUB 3jGOSUB A :X=X+17 { NEXT NsRETURN 

13IFR> 50i| F R< ^X T0 A? J rn?np l2 ;NEXT M;RETURN 

14IF n>:|p “<:2£3|}ggg ;S6j®S3!S3!g§£S 5 

i"ate< ^ R<0Xa-B:GOSUB 20 :GOSUB ©(3) :®(4)«1 *Us* 3 »GOSUB 21 
16IF R>fifIF.R<i7Xs9;G6sUB 20;G($SUB ©(4) :©?l0)oi •n=r.^nqriR2i 21 
17IF R>1 7IF R<f11X='?A.nn.c!rTP ort • r>AOTft> \ ■ * - it * _ 



17IF R>17IF R<33X=26 ;GOSUB 2fl(;G0SUB ©'( 5) iaf 
19UETURN 3IF R<49X=43;G0SUB ^JGOSUB 



11) «l;Uw5;00SUB 21 

12) -1;Ub6jG0SUB 21 



2l^F 3 (2^u)=Bv450 12,12, 2;Y * 15 J G03U S 3 iRETURN 
22IMU)=4V=100 
23G03UB 24 ,*V=0; RETURN 
24G03U3 25;CX=43 ;S=S+V;PRINT {RETURN 

25CY=-(P-i)xB-5jCX=-4, -RETURN ~ “ ' 

~26Z=200;IF P=1FC=137;G=G+S:G0SUB 25:PRINT r -tf r>nrrvpn 7 
■Wf P=2FO=21 t 0 i H=H+S aOSUB’25;PRIMT^ ft.H -irMOM 7 
-■Bftl? P=3FC=^9 ; 1=1+3 j G03UB 25i#MNT #0“ fp 

?SS-37feli* <z,H * , “ ir 2 iRETURN 

3 2 ; Pi i. I i IT "FTOtROLLFDICE^PUSHFJYFupA" -RETURN 
34G03UB 32 {PRINT "»USE*TRlGCER»TO«SAVE*DICE" -RETURN 
37G03UB 32, -PRINT *'«YOURFOPT.*TO*ROLL*AGAIN» {RETURN 

^K 5 n°?/r? 4 D 5 S T ? -24 53a ,-MU«*(Z) {NEXT Z;NTe0 {RETURN 
3 ^R+3 r »Q»1»6,1;LINE R**3>Q»4{LINE R > Q+3,1» i ' ine 

40IF R>49BOX R,Q,15,a,2{R*»— 49 
4 IRETURN 

44BOX 0, 26,120, 3 5» 2 {RETURN 

46IF S K=2V-W PUT " INPUT1 ‘^* TO * S W e ®3*PIE* , XjIF K*1V=:700 
47IF K=3V=300 

4aiF k= 4 v <=400 ,• Msmte 

49IF K-5V-350 1 ■■ >- 

50IF K«6V«600 







51G03UB 24 > V=0 ; GO SUB 32; 

5 2P=P+l ; G03U B 44;T=0;C=0 
33,* IF P>L«P=1 
53RETURN 

70P=1 ; C=0 ; G=0 ; H=0 ; 1=0 ; J=0 ; S=0 ; GOSUB 31 ; D=4999 ; T=0; Q=2 5 ; BC= 5 
80CY=0; INPUT "***I4JMB2R*0F*PLAYERS?"L;IF L>4L=4 
90 CLEAR ;CY=-5;FOR N=1T0 L;PRINT "♦PLAYER*#" , #0 , N, " : " ; NEXT N 
100 CY= 5 ; C X=- 5 ; PRI NT "TOTAL**PRESENT" ; GOSUB 26;G03UB 33 
110IF JY(P)=1B0X 0,31 >120 >19, 2; GOSUB 12;C=1;G0SUB 34 
120IF JX(P)=lGOSUB 52;GOSUB 26 

125IF TR(p)T=T+1;G03UB 13;IF T=6T=#;G03UB 44;GOSUB 37;GOSUB 31; 
C=0 ; GOSUB 3 B 

130IF JY(P)=-130X R,Q,9,S,2;GOSU3 45 
140 IF JX ( P ) =— 1GOSUB 26 ; GOSUB 52 ;GOSUB 26 
150R=R+4;GOSU3 40; IF CGOSUB 39 
160GOTO 110 

200 GOSUB 44 ; CY=3 5 ; PRINT "* GAME* OVER* P LAYER* #" , ,/0 , P , "*WINS" ; 

GOSUB 36 



32=35 NEED 24 BYTES FOR @ STRING 
m - A SPACE (£> =ZERO 



PRINT " *NOW*MOV E^TilE* DIG ,*DQWNt" ;RETURN 
; S =0 ;pffiT4l^=I7^57^ G0SUB 31 ,* G03U B 

V - ~~ ^ 4% -l'7 } 55,32^ 
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